home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / efnext < prev    next >
Text File  |  2002-09-18  |  974b  |  33 lines
  1. /* requires EPIC4 or better to run properly. if someone would like
  2.  * to backport this to be friendly to ircII that would be spiffy.
  3.  *
  4.  * Written because EPIC4 doesn't change your "current channel" to
  5.  * the OJOINed channel when you use OJOIN to join a channel.
  6.  *
  7.  * November 14, 2000 - William Rockwood <wjr@wjr.org>
  8.  */
  9.  
  10. alias ojoin {
  11.         if (![$1]) {
  12.                 echo $G Error: Not enough arguments
  13.                 echo $G Usage: /ojoin <[#]channel> <[@][-][+]>
  14.         } {
  15.                 ^stack push on 329
  16.                 ^on -329 "*" {
  17.                         @ :jchan = [$1]
  18.                         ^channel $jchan
  19.                         ^stack pop on 329
  20.                 }
  21.                 switch ($*) {
  22.                         (#*) { 
  23.                                 quote ojoin $*
  24.                         }
  25.                         (*) {
  26.                                 quote ojoin #$* 
  27.                         }
  28.                 }
  29.         }
  30. }
  31.  
  32. # wjr'y2k
  33.